home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / graphics / menu2.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-02  |  308 b   |  19 lines
  1. MENU 1,0,1,"Selection"
  2. FOR x = 1 TO 9
  3.      MENU 1,x,1,"Option "+CHR$(48+x)
  4. NEXT x
  5. MENU 1,10,1,"Quit"
  6. FOR x = 2 TO 4    
  7.      MENU x,0,0,""
  8. NEXT x
  9. ON MENU GOSUB Selection
  10. MENU ON
  11. Delay:
  12.  GOTO Delay
  13. Selection:
  14.  IF MENU(1)=10 THEN MENU RESET: END
  15.  LOCATE 10,20
  16.  PRINT "You chose menu option";MENU(1);
  17.  RETURN
  18.  
  19.